home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / BACH.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  2.6 KB  |  32 lines
  1. 5  T$="l12t140"
  2. 10  A$="mln42mso3db-mln23mso3db-mln11mso3db-mln42msdb-"
  3. 15  B$="mln44mso3e-b-mla-mse-b-mlgmse-b-mln44mso3e-b-"
  4. 20  C$="mlo4cmso3e-amlg-mse-amlfmse-amlo4cmso3e-a"
  5. 25  D$="mlo4dmso3fb-mlo2b-mso3fb-mlo1b-mso3fb-o4mldmso3fb-"
  6. 30  E$="mlo4gmso3b-o4dmlo3amsb-o4dmlo3gmsb-o4do3mlfmsb-o4d"
  7. 35  F$="mlo3emsb-o4cmlo3gmsb-o4cmlo3cmsb-o4cmlemso3b-o4c"
  8. 40  G$="mlfmso3ao4cmlo3gmsao4cmlo3fmsao4cmlo3emsao4c"
  9. 45  H$="mlo3dmsab-mlfmsab-mlo2b-mso3ab-mlo4dmso3ab-"
  10. 65  L$="mlo4emso3gb-mlo3d-msgb-mlcmsgb-mlo4emso3gb-"
  11. 70  M$="mlo4fmso3fa-mld-msfa-mlcmsfa-mlo4fmso3fa-"
  12. 75  N$="mlo4gmso3egmld-msegmlcmsegmlo4gmso3eg"
  13. 80  O$="mlo4a-mso3efmld-msefmlcmsefmlo4a-mso3ef"
  14. 85  P$="mlbmsdfmlo2a-mso3dfmlo2gmso3dfmlbmsdf"
  15. 90  Q$="mlo4cmso3egmlo2d-msegmlo2cmso3egmlb-mseg"
  16. 95  R$="mla-msefmlo2bmso3efmlcmsefmlo2cmso3ef"
  17. 97  S$="mlo1fmso2ao3cmlfmsao4cl2f"
  18. 100  AA$="l12mlo4amso3fo4cmlo3e-msfo4cmlo2fmso3fo4cmlo4amso3fo4c"
  19. 105   AB$="mlo4b-mso3fo4dmlo3a-msfo4dmlo2b-mso3fo4dmlb-mso3fo4dmlgmso3e-o4dmlo3b-mso3e-o4dmlo3amse-o4cmlo4gmso3e-o4cmlf+mso3do4cmlo3gmseo4cmlo3amsf+o4cmlf+mso3ao4c"
  20. 115  AC$="mlgmso3gb-mle-msgb-mldmsgb-mlo4gmso3gb-mlo4amso3f+amle-msf+amldmsf+amlo4amso3f+amlo4b-mso3f+gmle-msf+gmldmsf+gmlo4b-mso3f+gmlo4cmso3f+amle-msf+amldmsf+amlo4cmso3f+a"
  21. 125  AD$="mlo4b-mso3gb-mlo4f+mso3ao4cmlgmso3b-o4dmlo4c+mso3go4emldmso3ao4f+mlo3gmsb-o4gmlo3f+mso4camlo3e-mso4cf+mlo3dmsbo4gmlo3c+msb-o4emlo3dmsao4f+mlo2dmso4cf+"
  22. 135  AE$="mlo1gmso3b-o4gmlo2dmso3b-o4gmlo2gmso3b-o4gmlo2b-mso3b-o4gmlo3dmsa-o4fmlo3fmsa-o4fmlo3b-msa-o4fmldmso3a-o4fmlo3e-msgo4e-mlo3b-msgo4e-mlgmso3go4e-mlo3dmsgo4e-"
  23. 145  AF$="mlo3cmsao4e-mlo3fmsao4e-mlo2b-mso3b-o4dmlemso3b-o4d-mlfmso3ao4cmlo3fmsao4cmlfmso3ao4cmlo3fmsao4cmlo4e-mso3ao4cmlo3fmsao4cmlo4e-mso3ao4cmlo3fmsao4c"
  24. 155  AG$="mlo4dmso3a-bmlfmsa-bmlo4dmso3a-bmlfmsa-bmlo4d-mso3gb-mlemsgb-mlo4d-mso3gb-mlemsgb-mlo4cmso3g-amle-msg-amlo4cmso3g-amle-msg-a"
  25. 165  AH$="mlo4bmso3fa-mldmsfa-mlo4bmso3fa-mldmsfa-mlb-msegmld-msegmlb-msegmld-msegmlamse-g-mlcmse-g-mlamse-g-mlcmse-g-mlgmsd-emlo2b-mso3d-emlgmsd-emlo2b-mso3d-e"
  26. 170  AI$="mlo3amsce-mlo2g-mso3ce-mlo2amso3ce-mlamsce-"
  27. 175  AJ$="mlo3b-mso2b-o3d-mlo2g-msb-o3d-mlo2fmsb-o3d-mlo3b-mso2b-o3d-mlo4cmso2ao3cmlo2g-msao3cmlo2fmsao3cmlo4cmso2ao3cmlo4d-mso2ab-mlg-msab-mlfmsab-mlo4d-mso2ab-"
  28. 185  AK$="mlo4emso2ab-mld-msab-mlcmsab-mlo4emso2ab-mlo4fmso2ao3cmlo1g-mso2ao3cmlo1fmso2ao3cmlo4e-mso2ao3cmlo4d-mso2ab-mlemsab-mlfmsab-mlo1fmso2ab-mlo1b-mso3dfmlb-mso4dfmll2b-"
  29. 200  PLAY "xt$;xa$;xb$;xc$;xd$;xe$;xf$;xg$;xh$;xl$;xm$;xn$;xo$;xp$;xq$;xr$;xs$;xaa$;xab$;xac$;xad$;xae$;xaf$;xag$;xah$;xai$;xaj$;xak$;"
  30. 210  FOR I=1 TO 1000:NEXT I
  31. 220  CHAIN"A:CLASSICS.BAS"
  32.